3D plot

load Libraries

library(plotly)

plot_ly(z = volcano, type = "surface")

Animated 3D chart

head(economics)

plot_ly(economics, x =~date, col = I("black"))%>%
            add_lines(y = ~uempmed)%>%
            add_lines(y = ~psavert, color = I("green"))